home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / jyuku / voice.bas < prev   
BASIC Source File  |  1994-09-20  |  297b  |  14 lines
  1. 10 DIM AG%(.5!*11000/2+16)
  2. 20 CLS:PRINT "VOICE START SPACE"
  3. 30 I$=INPUT$(1)
  4. 40 PCMREC AG%,11000
  5. 50 PRINT "REPLAY=SPACE OK=RET. AGAIN=ELSE"
  6. 60 WAIT 50
  7. 70 PCMPLAY AG%,127
  8. 80 I$=INPUT$(1)
  9. 90 IF I$=" " THEN 70
  10. 100 IF I$<>CHR$(13) THEN 20 
  11. 110 INPUT F$
  12. 120 SAVE@ F$+".SND",AG%
  13. 130 GOTO 30
  14.